home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / DL4FBI / INSTALL.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-03-23  |  794 b   |  36 lines
  1. %mouse=1
  2. defint a-z
  3. $include "stdio.h"
  4. $include "win_man.h"
  5. $include "diaprof.h"
  6. $include "diadata.inc"
  7. cls
  8. k$="C:\            "
  9. restore DATAINSTALL
  10. call diaread(row,col)
  11. call diasval(1,k$)
  12. call diasave
  13. call diaprint(2,6,"The parameterfile BEACON.PAR will be copied to drive C:\ ")
  14. call diaprint(3,6,"For the ..EXE-programs you can choose another drive\path:")
  15.    DO
  16.      d=dialog
  17.      l=lastkeyx
  18.      IF l=%ESC then exit loop
  19.      IF l=%enter THEN
  20.       SELECT CASE d
  21.       CASE 2
  22.       EXIT LOOP
  23.       END SELECT
  24.      END IF
  25.    LOOP
  26.  
  27. SHELL "copy A:\BEACON.PAR C:\"
  28. s$="copy A:\SCANPAR.EXE "+k$
  29. shell s$
  30. t$="copy A:\beacons.exe "+k$
  31. shell t$
  32. DATAINSTALL:
  33. data   2,7,10,70,"INSTALL",1,30
  34. data   inp,5,5,"your choice:",5,20,35'1
  35. data   push,7,30," OK "
  36. data ""